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COBSSRESTVA 


MODULE COBSSRESTVA( 
we = '1-005' ! file: COBRESTVA.B32 


ENVIRONMENT: Vax-11 User Mode 
AUTHOR: MLJ , CREATION DATE: 05-MAY-1979 


ere 


FUP" CO OOVNOuUlfwn—o 


See 


MODIFIED BY: 
Original. MLJ O05-MAY-1979 
Added boilerplat e and commen nts, + 24-AUG- ayo 
Use RTLLIB Nom LIBRARY‘ d defin e psect via macros. RKR_18-SEPT-79 
Rename to COBRESTVA trom former’ $ SY 


4 BEGIN 
5 
' 
§ 
8 ie we 
5 ie COPYRIGHT (c) 1978, 1980, 1982, 1984 « 
10 1 ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. a 
if 1 is ALL RIGHTS RESERVED * 
: ® 
ig ig ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
14 14 1 i ONLY IN ACCORDANCE W H # SUCH LICENSE AND WITH THE ®* 
15 15 1 i INCLUSION OF THE ABOVE. COPyRI ut NOTICE. THIS SOFTWARE OR ANY OTHER * 
16 016 ie COPIES THEREOF MAY NOT BE PR IDED OR OTHERWISE MADE AVAILABLE TO ANY * 
17 1 ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS WHEREBY * 
18 O18 is TRANSFERRED. * 
° ® 
0 0020 1 i® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
1 0021 ie AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: 99 : is CORPORATION. e 
4 0024 1 i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
5 a2 ie SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. e 
r] 
; 09 . Ee ee a aa een a eT a TCT 
3 
0 030 1! 
1 ist !e¢ 
: 0 : i FACILITY: COBOL SUPPORT 
034 ABSTRACT 
g 035 
7 
8 
9 
0 
4 
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1-008 

1- RESTVA *RKR 24-SEPT-79 
(Entry point becomes C 


1-005 = Make module pene match entry La. cosmetic changes. 
RKR 18-OCT-79 
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SWITCHES 
SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 


LINKAGES 

NONE 

TABLE OF CONTENTS: 

FORWARD ROUTINE 

. COBSSRESTVA ; ! Restore virtual address from image file 
INCLUDE FILES 


REQUIRE SRILIN: yweeer ! Macros for psect declarations 
LIBRARY ‘RTLLIB'; Image header structures and sizes 


i MACROS 
NONE 
EQUATED SYMBOLS 
NONE 
PSECT DECLARATIONS: 
DECLARE -PSECTS (COB) ; ! Psects for COBS facility 


P 
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a ee 


SSRESTVA bse -1984 00:14: AX-11 Bliss-32 V4.0-74 P | Ct 
ett etme) PS ee cate att Te a0e 153 

GLOBAL ROUTINE COBSSRESTVA ( | 
INADR, ! Input addr.*s to be restored 
CHAN, } phennes number 
EFN ! Event flag number 
ds 

++ FUNCTIONAL DESCRIPTION 


FORMAL PARAMETERS: 


INADR.ra.r 


address of a cm longquorg array containing the starting and ending 
virtual addresses in the process's virtual address space of the 
area to be restored from the image file. 


Ooo 


ARI HOO NONE OOO NAAR WU OOS VFA EMO DO IO Ue OOD OR ed 


ec me mee ec me ee me ee cm me a ed ed a ot 8 = 8 = dd 8 8 8 td 


EFN.rl.v 
Event flag number to use for 1/0 on CHAN. 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


SS$_BADIMGHDR ! Bad {nege header read 

SS$_INSFARG ! Insufficient arguments to this routine 
SS$_NORMAL ! Normal successful rong letion 
SSS_PAGOWNVIO ! Page ownership violation 

If read error occurs, RMS error status is returned. 


SIDE EFFECTS: 
NONE 


LE RERESASE SENSE AEUN ASSO NO UP UWI OODLE UIA OSB UE AR UL ODR OR OMOS 
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CHAN. rl.v | 
number of the neg & on which the image ie has been accessed. 

| 
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; 14 40 1! $ 
; «616 41 1 !<- § 
: 484 § ji : 
: 138 44 ¢ BEGIN ; 
: 13h 4g INADR REF VECTOR; ; 
; 136 48 LOCAL : 
5 4 STATUS, ' System service status 5 
. ¥ 0 IHDBUF : BLOCKC BYTE) ! Block buffer for image header 3 
i 1 IMGBUF : VECTOR[51¢,BYTEd, i Block buffer for image file ; 
3; (7 § 10SB: VECTOR ! 409 status block 3 
> 16 ISD: REF BLOCKC, BYTE), i Pointer to image section descriptor ; 
3 196 & IHDVBN, ! Current VBN of image header 3 
3; 5 MAX IHDVBN; ! Maximum VBN of image header : 
3; 6164 0 § BUILTIN $ 
; 165 ACTUALCOUNT; $ 
3 196 8 3 
3; 16 9 3 
ie mE : 
: 100 o¢ Make sure enough arguments are present. 3 
; 17@ 64 iF ACTUALCOUNT() LSS 3 THEN RETURN SS$_INSFARG; : 
> 17% : 
i ef 16 : 
; 177 0 44 ; Read the first (usually, only) block of the image header. ; 
: 179 8 71 [HDVBN = 1; ; 
; 180 P 0 tg STATUS = $a10W( ; 
; 181 P 027 EFN=.EFN ° 
; 136 P 74 CHAN=.CH ° 
: 18 P 0275 FUNC=10$_READVBLK, : 
: «6186 P 027 10SB8=10S6, $ 
3 + +4 4 A se 

4 = 

: 189 79 P3=1);- 

; 188 80 IF NOT .STATUS THEN RETURN .STATUS; 

: 189 1 IF NOT .1O0SB THEN RETURN .10SB<0, 16>; 

> 191 j 

2 i 

: 19% i Save the number of blocks in the image header, make sure that the 

3 13? : SIZE field is reasonable, and point to the first ISD. 

; 199 3 MAXIHOVBN = . JHOBUFCIHDSB WORE KCNT); 

: 198 If . IMDBUFCIHDSW_SIZE) GTRU 510 THEN RETURN $S$_BADIMGHDR; 

: 199 3 ISD = IMDBUF + .THDBUFCIHD W_ SIZE); 

: 201 3 

: 5 95 16 

3: 204 96 ! Loop over the requested virtual pages. 
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05 ‘hed 
ware te FROM .(INADRCOJ)<9,23> TO .CINADRC1])<9,23> DO 


LOCAL 
SVA, ’ pee virtual address 
LEN; i Length 


Find the image section descriptor that degcribes the current 
irtual page. Since these occur in sects ng sequence, we 

i st scan forward until the c socrers ua found, or we 
ett one that describes a followin 

the table. In the latter cases, the des 

a described by any ISD. 


WHILE, .VPN GEQ .ISDCISDSV_VPNJ+.ISOCISDSW_PAGCNT) DO 


g page. or the end of 


'¢ 
i 
i 
i 
i 
red page is not 


'¢ 

: Point to the next ISD, and make sure it exists. 
iso -ISD + .ISDCISD$W_SIZE); 

IF .1Sb GTRA THDBUF+S10-THEN RETURN SS$ _BADIMGHDR; 


'¢ 

If the SIZE field is zero, we have reached the end of the 
table. This indicates that the requested VPN is higher 

i than any page described by the ISDs. 

if -ISDCISD$SW_SIZE] EQL 0 

THEN 


RETURN SS$_PACOWNVIO; 
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a OO 
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it che size field is -1, the next ISD is in the following 


CHAN= etn 

FUNC=10$_READVBLK, 
SB=10S6, 
HDBUF , 
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4 i block ead it and continue searching. However, make 
" - sure a, to run off the end of the image header. 

4 9 if .1SDCISDSW_SIZE] EQL %X"FFFE" 

28 ? THEN 

$0 

51 IHDVBN = 

3 STATUS = daioy 

2 bene. 

5 

5 


Oco 


I 

Pi= 
PS=_THOVBN 

IF NOT * STATUS inen RETURN . sSTAqus; 

IF NOT .JOSB THEN RETURN .10SB<0, 16>; 
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pee 
IF el ee eed THEN RETURN SS$_BADIMGHDR; 
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ISD = IHDBUF; 
END: 
END; 


' requested one, this tes that no ISD describes the 

! requested one, since the preceding ISD described pages that 
; precede the requested one. 

if .VPN LSS .ISDCISD$V_VPNI 

HEN 


RETURN SS$_PAGOWNVIO; 


oO 


WN SO OONAUSE 


'¢ 
! Make sure that the ISD does not describe a global page. We 
do not support them. 


if. )SBCISOSV OBL 
RETURN SS$_PAGOWNVIO; 


SPSS S EEE ee eR RBBB IRE OO OOOOH 
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'¢ 
! Compute the virtual address and length of the area within the 
current page that will be restored. 


SVA = MAXA(.VPN°9, .INADRCO)): ' Find base address 
LEN = MINA(.VPN°94511, .INADRE1}) - .SVA +1; | Find Length 


CONN NNSA OOO* 


WN SO OONAULS WN "Q0anou 


t+ 

! Do the restoration. If the page is not writable, we will not 
' restore it, since it should not have changed (unless by 

just fill the region with 


! debugger). If it is demand zero, 
ate block from the image, 


! zero. Otherwise, read the appropr 
i_and copy the region over. 
iF .ISDCISD$V_WRT) 

IF .ISOCISD$V_DZRO) 


N 
gg HOF ILL CO. »LEN, .SVA) 


SSRLERRAN LE SSIEARAN AS SANOFI O Dw Waar owe 


MEW 


1+ 
! If the current ISD "9 ter 8 virtual page that follows the 
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08 BEGIN 
09 P STATUS = $Q10W( 
10 P EFN=.EFN 
11 Pp CHAN=. CHAN 
ig P FUNC=10$_READVBLK, 
1 P 10S8= 1088. 
BB pelt 
= 
1g 8 p§-°} SC 1SD$L_VBN)+.VPN-.1SDCISDS$V_VPN)); 
1 IF NOT .STATUS THEN RETURN STATUS | 
18 0 IF NOT .10SB T >; 


HEN RETURN .10SB<0,16>; 


SSRESTVA -$ep-1984 00:14: AX-11 Bliss-32 V4.0-74 P 7 | 
5°85 1b-se0-1944 99: 10:g8 «— eBante Saeicooeeetya 68251 oe 63) 7 
; 19 il CHSMOVE(.LEN, IMGBUFC.SVA=(.VPN*9)], .SVA); ; 
: 321 41 END; ; : 
3 § 414 3 
: 357 bctg SS$_ NORMAL : 
: 325 t19 END? : 

.TITLE COBSS$RESTVA : 
“IDENT \1-005\ ; 
-EXTRN SYS$Q1OW 3 
sPSECT _COBSCODE,NOWRT, SHR, PIC,2 : 
OFFC 00000 “ENTRY COBSSRESTVA, Save R2,R3.R4,R5.RO.R7,RB,RI,- ; 0183 ; 
5 FBES8 CE 9€ 000 MOVAB = o4B(sp), SP : : 
3s 6C 3 iti CMPBs« CAP), #3 + 0264 : 
06 1€ 000A BGEQU : ; 
50 0114 «BF ¢ 900¢ MOVZUL Bos. RO : : 
08 AE Qi 0 0012 1$ MOVL #1, IHDVBN : 0271 ; 
E 7C 00 16 CLRO 0—-_- = ( §p) + 0279 : 
7E oi 70 001 MOVa #1, =(SP) : : 
7E 0200 8F 3C 0001B MOVZWL #512, =(SP) ; : 
FEOO D 9F 00020 PUSHAB IHDBUF 3 3 
E 7C 00024 CLRQ. ss =(SP) F ; 
30 AE 9F 00026 PUSHAB 10SB : : 
31 DD 00029 PUSHL #4 : ; 
08 AC DD 00028 PUSHL CHAN ; 
0C AC DD 0002E PUSHL FN : 
000000006 00 o¢ FB 00031 CALLS #12, SYS$QI0W F 
GE 09 0 MOVL S ; 
0 ge 5 0 BLBS STATUS, 2$ : 0280 
012B 31 E BRW 3 
03 10 ote if 041 2s: BLBS B, 3$ ; 0281 
Oc AE FEN CD OA a948 3$: MOVZBL IHDBUF+16, MAXIHDVBN : 9289 
O1FE 8F FEO gp } 5 CHP HDOBUF, #510 ; 0290 
0 FE0O ray 3 MOVAB IHDBUF, RO : 0291 
6 FE gD ‘ MOVZWL IHDBUF. ISD : 
6 c ADDL2 RO, ISO F 
A 06 AC D OVE INADR RI : 0298 
04 ag 05 AA 17 1 EF EXTZV. #1, ‘ (R10), (SP) : 
5 6A 17 i. 9 Ff oF EXTZV fis * (R10), : 
50 04 Ab 15 5 ff 77 4$ EXTZV Har ai (1s0). RO : 0313 
1 02 i) zp MOVZWL aC isp ; 
: 3 c ADDL2 1, : 
; CMPL PN, o 3 
if 7 BLSS 3 
y 6 f 9 ROVZYL ‘ SD) »°0 ; 0320 
§ FE AD SE f v JHOBUF +510, RO : 0321 
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ROOM MM VOwwony 


ee 
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WOEOMOoON— NIMMOONS 9009-99 TOWN mn own 
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f-seo- 19 tk Wath ueabt 


» ie 


10$ 

§350). #65535 
HDVBN, MAXIHDVBN 
#68, RO 

IHDVBN 


£ 
#12, SYS$Q10W 
RO, STATUS 
TAtUs, 7 
$8. 8$ 

IHDBUF, ISD 

#0 #21, 4(I1SD), VPN 


8(ISD), 11$ 
RO 


1 
0, LEN, (SVA) 
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; 0352 
; 0353 


354 
313 
0365 


0374 
0376 


0383 
0384 


Be 


0408 
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“mo 


2c AE F OO14F PUSHAB IMGBUF ; 
¢ 001 ? CLRQ. 0 =( SP : 
30 AF F 001 PUSHAB 10SB ; 
31 0D 00157 PUSHL #4 ; 
POA Ra fag 1 
000000006 00 o¢ F 15F CALLS #12, SYS$QI0W : 
E D0 001 MOVL RO, STATUS ; 
4 6€ €8 001 BLBS = STATUS, igs + 0409 
0 6E BO i 15$: MOVE STATUS, R ; 
10 AE £8 00170 168: BS  10SB, 18$ + 0410 
9 8 AE ie 4 1$§: RoviuL 1088, 8 ; 
50 57 ; cs 1538 18$:  SUBL3 R11, SVA RO + 0411 
67 18 AE4O 17 MOVC3 LEN, IMGBUFLROJ, (SVA) : 
4 PRI ist: Bee sn i eo 
1A 0189  BGTRU 218° ; 
FEE 1 001 BRW 4$ : 
50 1 DO OO18E 218 MOVL #1, RO > 0417 
04 00191 RET : 


3; Routine Size: 402 bytes, Routine Base: _COBSCODE + 0000 


FORSERES TWA 1b-se Hat} 4 90:16 08 AX-11 Bliss-32 V4.0-74 Page 


Sep-1 COBRTL.SRCJCOBRESTVA.B 231 (4) 
; 7 418 1 END 
; 334 8238 0 ELUDOM 
H PSECT SUMMARY 
3 Name Bytes Attributes 
: _COBSCODE 402 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 
ee een Aen ee ae Symbols -------- Pages Processing 
; File Total Loaded Percent Mapped Time 
; -8255$DUA28: CSYSLIBILIB.L32;1 18619 17 0 1000 00:01.4 
: COMMAND QUALIFIERS 
3 BLISS/CHECK=<FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS@L ISS: COBRESTVA/0BJ20BS: COBRESTVA MSRC$: COBRESTVA/UPDATE=(ENH$: COBRESTVA 


Size: 402 code + 0 data bytes 
Run Time: :07.8 

Elapsed Time: 4.4 

Lines/CPU Min: > 
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